package TimeCount_Package is 

    -- dichiarazione di oggetto remoto
    -- pragma Remote_Types;
    -- pragma Shared_Passive;
    -- pragma Remote_Call_Interface;

    protected type TimeCount is
			
    	procedure Increment;
			
    	-- ritorna il valore del tempo di gioco
    	function GetTime return Integer;
	
    	-- ritorna il tempo toale per la partita
    	function GetTotalTime return Integer;

    	private
	
    		TotalTime : Integer := 45000;
    		Timing : Integer := 0;
		
    end TimeCount;

    -- tipo access al tipo timecount	
    type TimeCount_Access is access TimeCount;

end TimeCount_Package;